home *** CD-ROM | disk | FTP | other *** search
/ Colorado Rockies Interactive CD-ROM 1999 / Colorado Rockies 1999 Interactive CD-ROM.iso / pc / DXR / Bsb.dxr / 00063.ls < prev    next >
Encoding:
Text File  |  1999-03-30  |  1.2 KB  |  74 lines
  1. on enterFrame
  2.   global FB, SB, TB, HB, score
  3.   if TB = 1 then
  4.     set HB to 1
  5.   end if
  6.   if TB = 1 then
  7.     set TB to 0
  8.   end if
  9.   if HB = 1 then
  10.     set score to score + 1
  11.   end if
  12.   if HB = 1 then
  13.     set HB to 0
  14.   end if
  15.   if SB = 1 then
  16.     set HB to 1
  17.   end if
  18.   if SB = 1 then
  19.     set SB to 0
  20.   end if
  21.   if HB = 1 then
  22.     set score to score + 1
  23.   end if
  24.   if HB = 1 then
  25.     set HB to 0
  26.   end if
  27.   if FB = 1 then
  28.     set HB to 1
  29.   end if
  30.   if FB = 1 then
  31.     set FB to 0
  32.   end if
  33.   if HB = 1 then
  34.     set score to score + 1
  35.   end if
  36.   set HB to 1
  37.   if HB = 1 then
  38.     set score to score + 1
  39.   end if
  40.   if HB = 1 then
  41.     set HB to 0
  42.   end if
  43.   if FB = 1 then
  44.     set the visible of sprite 40 to 1
  45.   end if
  46.   if SB = 1 then
  47.     set the visible of sprite 41 to 1
  48.   end if
  49.   if TB = 1 then
  50.     set the visible of sprite 42 to 1
  51.   end if
  52.   if HB = 1 then
  53.     set the visible of sprite 43 to 1
  54.   end if
  55.   if FB = 0 then
  56.     set the visible of sprite 40 to 0
  57.   end if
  58.   if SB = 0 then
  59.     set the visible of sprite 41 to 0
  60.   end if
  61.   if TB = 0 then
  62.     set the visible of sprite 42 to 0
  63.   end if
  64.   if HB = 0 then
  65.     set the visible of sprite 43 to 0
  66.   end if
  67.   set the text of cast 13 to string(score)
  68.   updateStage()
  69. end
  70.  
  71. on exitFrame
  72.   play frame "atbats"
  73. end
  74.